﻿Imports System Imports System.Collections.Generic Imports System.Text
'Namespace DTO
Public Class CPhanQuyen
#Region "Thuộc tính"

    Private _maQuyen As Integer
    Private _tenQuyen As String
    Private _banHang As Integer
    Private _khachHang As Integer
    Private _nhanVien As Integer
    Private _baoCao As Integer
    Private _heThong As Integer
    Private _sanPham As Integer
    Public Property maQuyen() As Integer
        Get
            Return _maQuyen
        End Get
        Set(ByVal value As Integer)
            _maQuyen = value
        End Set
    End Property

    Public Property tenQuyen() As String
        Get
            Return _tenQuyen
        End Get
        Set(ByVal value As String)
            _tenQuyen = value
        End Set
    End Property

    Public Property banHang() As Integer
        Get
            Return _banHang
        End Get
        Set(ByVal value As Integer)
            _banHang = value
        End Set
    End Property

    Public Property khachHang() As Integer
        Get
            Return _khachHang
        End Get
        Set(ByVal value As Integer)
            _khachHang = value
        End Set
    End Property

    Public Property nhanVien() As Integer
        Get
            Return _nhanVien
        End Get
        Set(ByVal value As Integer)
            _nhanVien = value
        End Set
    End Property

    Public Property baoCao() As Integer
        Get
            Return _baoCao
        End Get
        Set(ByVal value As Integer)
            _baoCao = value
        End Set
    End Property

    Public Property heThong() As Integer
        Get
            Return _heThong
        End Get
        Set(ByVal value As Integer)
            _heThong = value
        End Set
    End Property

    Public Property sanPham() As Integer
        Get
            Return _sanPham
        End Get
        Set(ByVal value As Integer)
            _sanPham = value
        End Set
    End Property
#End Region
#Region "Phương thức khởi tạo"
    Public Sub New()
        maQuyen = 0
        tenQuyen = ""
        banHang = 1
        khachHang = 1
        nhanVien = 1
        baoCao = 1
        heThong = 1
        sanPham = 1
    End Sub

    Public Sub New(ByVal q As CPhanQuyen)
        maQuyen = q.maQuyen
        tenQuyen = q.tenQuyen
        banHang = q.banHang
        khachHang = q.khachHang
        nhanVien = q.nhanVien
        baoCao = q.baoCao
        heThong = q.heThong
        sanPham = q.sanPham
    End Sub

    Public Sub New(ByVal mQ As Integer, ByVal tQ As String, ByVal bH As Integer, ByVal kH As Integer, ByVal nV As Integer, ByVal bC As Integer, ByVal sP As Integer, ByVal hT As Integer)
        maQuyen = mQ
        tenQuyen = tQ
        banHang = bH
        khachHang = kH
        nhanVien = nV
        baoCao = bC
        sanPham = sP
        heThong = hT
    End Sub

#End Region
End Class
'End Namespace
